home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / sound / airraid.zip / AIR-RAID.PAS < prev   
Pascal/Delphi Source File  |  1996-05-29  |  968b  |  62 lines
  1. program AirRaid;
  2.  
  3. {$N-,E-,Q-,S-,R-,I-,O-,F-,P+,T-,X-,V-,B-,A+,G-,D-,L-,Y-}
  4. {$M 1024,0,0}
  5. (* compiled in Borland Turbo Pascal 7.0 for DOS *)
  6.  
  7. uses crt;
  8.  
  9. var
  10. Varies : integer;
  11. Dummy : char;
  12.  
  13. begin
  14. textcolor(0);
  15. textbackground(0);
  16. clrscr;
  17. gotoxy(1,4);
  18. textcolor(14);
  19. writeln('   Oh, God ....not again! And me in the middle of dessert.....');
  20. writeln;
  21. textcolor(15);
  22. write('   (');
  23. textcolor(7);
  24. write('if you press a key, it''ll stop at the next low cycle.');
  25. textcolor(15);
  26. writeln(')');
  27.  
  28. Varies := 0;
  29. while Varies <= 419 do
  30. begin
  31. sound(Varies);
  32. delay(20);
  33. Varies := Varies + 1;
  34. end;
  35.  
  36. repeat
  37. while Varies <= 670 do
  38. begin
  39. sound(Varies);
  40. delay(20);
  41. Varies := Varies + 1;
  42. end;
  43. while Varies >= 419 do
  44. begin
  45. sound(Varies);
  46. delay(20);
  47. Varies := Varies -1;
  48. end;
  49. until keypressed;
  50.  
  51. repeat
  52. sound(Varies);
  53. delay(20);
  54. Varies := Varies - 1;
  55. until Varies = 0;
  56.  
  57. nosound;
  58. Dummy := readkey;
  59. textcolor(7);
  60. clrscr;
  61. writeln
  62. end.